home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / word search crea (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  7.7 KB  |  243 lines
  1. 100 print"[147]":clr:restore
  2. 110 dim l$(78,78),w$(78)
  3. 140 gosub 61030
  4. 150 h$="[147]        the word search creator         "
  5. 155 goto2000
  6. 160 printh$:print
  7. 170 print"enter name of word search puzzle":print"-->";
  8. 180 ln=25:gosub60000:t$=b$:ifb$=""thenprint"[145][145]";:goto170
  9. 190 printh$:print:print"[156]title[152]:    "t$:print
  10. 200 print"enter the # of columns please [152](10[152]-38[152])":print"-->   [157][157][157]";
  11. 210 ln=3:gosub60000:c=val(b$): ifc<10orc>38thenprint"[145][145]";:goto200
  12. 220 printh$:print:print"[156]title[152]:    "t$:print:print"columns[152]: "c:print
  13. 222 ifa=2then2240
  14. 230 print"[129]enter the # of rows [152](10[152]-40[152])":print"-->   [157][157][157]";
  15. 240 ln=3:gosub60000:r=val(b$):ifr<10orr>40thenprint"[145][145]";:goto 230
  16. 250 printh$:print:print"[156]title    [146][152]:"t$:print:print"columns [146][152]:"c:print
  17. 260 print"[129]rows    [146][152]:"r:print
  18. 270 print"[158]enter the # of words in puzzle ";
  19. 280 ww=c+r:print"[152](1[152]-"ww"[157][152])":print"-->   [157][157][157]";:ln=4:gosub60000:w=val(b$)
  20. 285 ifw<1orw>ww then print"[145][145]";:goto270
  21. 290 printh$:print:print"[156]title    [146][152]:"t$:print:print"columns [146][152]:"c:print
  22. 300 print"[129]rows    [146][152]:"r:print:print"[158]words   [146][152]:"w:print
  23. 305 print" (press any when ready to continue) "
  24. 310 wait198,1:poke198,0
  25. 320 printh$:print
  26. 330 l=c:ifr<cthenl=r
  27. 340 print"[159] enter the words, be sure that they are"
  28. 342 print"      less than"l"letters in length"
  29. 344 print:print
  30. 360 fort=1tow
  31. 370 print"[156]word [152]#[155]"t"[152]:";
  32. 380 ln=l:gosub60000:w$(t)=b$:print
  33. 390 iflen(w$(t))>lthenprint"to long":goto370
  34. 400 nextt
  35. 410 print" (press any when ready to continue) "
  36. 420 wait 198,1:poke198,0
  37. 430 printh$:print:print"[150]  please wait[152]: working on the puzzle ":print
  38. 440 fort=1tor:fortt=1toc:l$(t,tt)="[209]":nexttt,t
  39. 450 fort=1tow
  40. 460 x=int(rnd(1)*r)+1
  41. 470 y=int(rnd(1)*c)+1
  42. 480 v=int(rnd(1)*3)-1
  43. 490 h=int(rnd(1)*3)-1
  44. 500 ifv=0andh=0then480
  45. 510 xx=x:yy=y
  46. 520 fortt=1tolen(w$(t))
  47. 530 d$=mid$(w$(t),tt,1):ifd$=" "then600
  48. 540 c$=l$(x,y):ifc$<>d$then560
  49. 550 goto570
  50. 560 ifc$<>"[209]"then460
  51. 570 x=x+v:y=y+h
  52. 580 ifx>rorx<1then460
  53. 590 ify>cory<1then460
  54. 600 nexttt:x=xx:y=yy
  55. 610 fortt=1tolen(w$(t))
  56. 620 d$=mid$(w$(t),tt,1):ifd$=" "then650
  57. 630 l$(x,y)=d$
  58. 640 x=x+v:y=y+h
  59. 650 nexttt:nextt
  60. 659 print" advance the printer to the next page &
  61. 660 [153]" press any key when ready to continue"
  62. 667 [153]
  63. 670 [146]198,1:[151]198,0
  64. 680 [153]h$
  65. 700 [153]h$:[153]:[153]:[153][166]16)"printing"
  66. 710 [153]:[153][166]15)"answer key"
  67. 720 a$[178]"y":[141]1000
  68. 730 [153]h$:[153]:[153]:[153]"replacing dots with letters, please wait"
  69. 740 [129]t[178]1[164]r:[129]tt[178]1[164]c
  70. 750 [139]l$(t,tt)[179][177]"(NULL)"[167]770
  71. 760 l$(t,tt)[178][199]([181]([187](1)[172]26)[170]65)
  72. 770 [130]tt,t
  73. 780 [153]h$:[153]:[153]"  adavance printer to the next page &"
  74. 785 [153]" press any key when ready to continue"
  75. 790 [161]a$:[139]a$[178]""[167]790
  76. 800 [153]h$:[153]:[153]:[153][166]16)"printing"
  77. 810 [153]:[153][166]17)"puzzle"
  78. 820 a$[178]"n":[141]1000
  79. 830 [153]h$:[153]:[153]"would you like another copy (y/n)."
  80. 840 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]840
  81. 850 [139]a$[178]"y"[167]780
  82. 860 [153]h$:[153]:[153]"do you want to make another puzzle(y/n)."
  83. 870 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]870
  84. 880 [139]a$[178]"y"[167]2000
  85. 890 [153]h$:[153]:[153]" i hope you had fun making your puzzle."
  86. 900 [153]"            please come back"
  87. 910 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  88. 915 [139]er[179][177]63 [167] [128]
  89. 920 [147]"hello connect",8
  90. 1000 [159]15,4,15:[160]15:[139]st[179][177]0[167] 63500
  91. 1003 [159]4,4
  92. 1005 s$[178]"":[129]t[178]1[164](21[171][195](t$)[173]2):s$[178]s$[170]" ":[130]
  93. 1010 [152]4,[199](14)s$t$
  94. 1020 [152]4:[152]4
  95. 1030 [139]a$[179][177]"y"[167]1050
  96. 1040 [152]4,[199](14)"                answer key"
  97. 1050 [152]4:[152]4,[199](15)
  98. 1060 s$[178]"":[129]t[178]1[164](41[171](c)):s$[178]s$[170]" ":[130]
  99. 1070 [129]t[178]1[164]r
  100. 1080 [152]4,s$;
  101. 1090 [129]tt[178]1[164]c
  102. 1100 [152]4,l$(t,tt)" ";
  103. 1110 [130]tt:[152]4:[130]t
  104. 1120 [152]4:[152]4:[152]4
  105. 1130 [129]t[178]1[164]w
  106. 1140 [152]4,[199](16)"10"w$(t);:t[178]t[170]1:[139]t[177]w[167]1170
  107. 1150 [152]4,[199](16)"30"w$(t);:t[178]t[170]1:[139]t[177]w[167]1170
  108. 1160 [152]4,[199](16)"55"w$(t)
  109. 1170 [130]t:[152]4
  110. 1180 [160]4
  111. 1190 [142]
  112. 2000 [151]53280,.:[151]53281,.:[153]"load"
  113. 2050 [141] 60770
  114. 2100 [161]a$:[139]a$[178]""[167]2100
  115. 2110 [139] a$[179]"0" [176] a$[177]"7" [167] 2100
  116. 2115 [139]a$[178]"0" [167] 63000
  117. 2116 a[178][197](a$)
  118. 2120 [139]a[178]1 [167]2150
  119. 2130 [153]"load"
  120. 2135 [153]"  please wait while data is being read"
  121. 2140 c[178]30:r[178]30:w[178]20
  122. 2150 [145]a[137]160,2160,2170,2180,2190,2200,2210
  123. 2160 t$[178]"girl's names":[137]2220
  124. 2170 t$[178]"boy's names":[137]2220
  125. 2180 t$[178]"basic commands":[137]2220
  126. 2190 t$[178]"baseball teams":[137]2220
  127. 2200 t$[178]"u.s. presidents":[137]2220
  128. 2210 t$[178]"u.s. capitals":[137]2220
  129. 2220 :
  130. 2221 [139]a[178]2[167]2240
  131. 2230 [129]t[178]1[164](20[172](a[171]2)):[135]x$:[130]
  132. 2240 [129]t[178]1[164]20:[135]w$(t):[130]t
  133. 2250 [137]440
  134. 3000 [131] sarah,tonia,melissa,tammy,amy,debra,kristi,susan,katherine
  135. 3010 [131] cora,melanie,samantha,stephanie,deena,tracey,stacey,ann
  136. 3100 [131] becky,jana,laura,chris,marvin,maurice,anthony,matthew
  137. 3110 [131] charles,george,robert,allan,carl,brain,dennis,mike,bruce
  138. 3115 [131] john,thomas,doug,stu,troy,kevin
  139. 3200 [131] print,list,let,read,input,get,goto,gosub,return,dim
  140. 3210 [131] save,load,new,end,stop,poke,peek,cont,spc,tab
  141. 3300 [131] yankees,red sox,white sox,mets,pirates,astros,rangers
  142. 3310 [131] cubs,expos,reds,cardinals,padres,royals,blue jays,indians
  143. 3320 [131]athletics,giants,orioles,dodgers,mariners
  144. 3400 [131] washington,adams,lincoln,johnson,jefferson,monroe,jackson,reagan
  145. 3410 [131] carter,ford,nixon,kennedy,eisenhower,truman,roosevelt
  146. 3420 [131] hoover,wilson,harding,garfield,taft
  147. 3500 [131] austin,santa fe,little rock,carson city,baton rouge,jackson
  148. 3510 [131] atlanta,olympia,providence,dover,indianapolis,topeka,richmond
  149. 3520 [131] phoenix,tallahasse,sacramento,pierre,frankfort,augusta,albany
  150. 60000 b$[178]""
  151. 60010 ll[178]1:[153]"to";
  152. 60015 [161]a$:[139]a$[178]""[167]60015
  153. 60020 [139]a$[178][199](20)[175]ll[178]1 [167] 60015
  154. 60025 [139]a$[178][199](20)[167][153]"cmdcmd  cmdcmdto";:ll[178]ll[171]1:b$[178][200](b$,ll[171]1):[137]60015
  155. 60030 [139]a$[178][199](13) [167][153]"cmd cmd":[142]
  156. 60035 [139]ll[177]ln [167] 60015
  157. 60040 [139]a$[178][177]"atn"[175]a$[179][178]"(NULL)" [167] 60050
  158. 60045 [139]a$[179]" "[176]a$[177]"z"[167] 60015
  159. 60050 ll[178]ll[170]1:[153]"cmd";a$;:[151]212,.:[153]"to";:b$[178]b$[170]a$
  160. 60055 [137] 60015
  161. 60770 [153]"wait listortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  162. 60780 [153]" {$7d}                                   {$7d}"
  163. 60790 [153]" {$7d}       contw o r d  s e a r c h        list{$7d}"
  164. 60800 [153]" {$7d}       print#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        list{$7d}"
  165. 60810 [153]" {$7d}                                   {$7d}"
  166. 60820 [153]" {$7d}       1.  create your own         list{$7d}"
  167. 60830 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  168. 60840 [153]" {$7d}       for2.  girls names             list{$7d}"
  169. 60850 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  170. 60860 [153]" {$7d}    close  sys3.  boys names              list{$7d}"
  171. 60870 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  172. 60880 [153]" {$7d}       4.  basic commands          list{$7d}"
  173. 60890 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  174. 60900 [153]" {$7d}       cont5.  baseball teams          list{$7d}"
  175. 60910 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  176. 60920 [153]" {$7d}       clr6.  u.s. presidents         list{$7d}"
  177. 60930 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  178. 60940 [153]" {$7d}       verify7.  u.s. capitals           list{$7d}"
  179. 60950 [153]" {$7d}      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(        {$7d}"
  180. 60960 [153]" /{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}exp"
  181. 60970 [153]" contor{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
  182. 60980 [153]" {$7d}                                   {$7d}"
  183. 60990 [153]" {$7d}  enter selection (1-7,0=abort):   cont{$7d}"
  184. 61000 [153]" {$7d}                                   {$7d}"
  185. 61010 [153]" /CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCexp";
  186. 61020 [153]"";
  187. 61025 [142]
  188. 61030 [153]"load":[151]53281,14:[151]53280,14
  189. 61040 [151]53283,1:[151]53284,15:[151]53265,[194](53265)[176]64
  190. 61050 [153]"                                       "
  191. 61060 [153]"  stop          l o a d s t a r            "
  192. 61070 [153]"                                       "
  193. 61080 [153]"         is proud to present...        "
  194. 61090 [153]"                                       "
  195. 61100 [153]:[153]
  196. 61110 [153]"                                "
  197. 61120 [153]"          wcont ocont rcont dcont  scont econt acont rcont ccont h  "
  198. 61130 [153]"            open                    "
  199. 61150 [153]"             c r e a t o r      "
  200. 61160 [153]"                                "
  201. 61170 [153]:[153]
  202. 61180 [153]"      syscloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclose"
  203. 61190 [153]"      syscloseclosesyscloseclosepeek(NULL)closelenleft$(NULL)right$(NULL)closepeek(NULL)right$(NULL)(NULL)(NULL)(NULL)closeatn(NULL)str$closeclosecloseclose"
  204. 61200 [153]"      closeclosecloseclosecloseclosesysclose(NULL)atn(NULL)(NULL)right$(NULL)closeatn(NULL)(NULL)atn(NULL)val(NULL)closeclosesysclosecloseclosecloseclose"
  205. 61210 [153]"      closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclose"
  206. 61215 [153]"                                  "
  207. 61220 [153]"      sys   *   copyright 1987   *   "
  208. 61230 [153]"                                  "
  209. 61240 [153]"              press (space)       "
  210. 61245 [153]"                                  "
  211. 61270 [153]"";
  212. 61271 [161]a$:[139]a$[179][177]" "[167] 61271
  213. 61275 [153]"load":[151]53265,27:[142]
  214. 63000 [153]""
  215. 63010 [153]"list                        "
  216. 63015 [153]"  quit : are you sure?  "
  217. 63020 [153]"  ------                "
  218. 63022 [153]"         y)es or n)o    "
  219. 63024 [153]"                        "
  220. 63030 [161]a$:[139]a$[178]""[167] 63030
  221. 63031 [139]a$[178]"n"[176]a$[178]"(NULL)"[167] 2050
  222. 63035 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] 63050
  223. 63040 [137] 63030
  224. 63050 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  225. 63055 [139]er[179][177]63 [167] [153]"load":[128]
  226. 63060 [147]"hello connect",8
  227. 63500 [153]""
  228. 63510 [153]"list                        "
  229. 63515 [153]"  printer not present!  "
  230. 63520 [153]"   do you wish to try   "
  231. 63522 [153]"   again? y)es or n)o   "
  232. 63524 [153]"                        "
  233. 63530 [161]r$:[139]r$[178]""[167] 63530
  234. 63531 [139]r$[178]"y"[176]r$[178]"(NULL)" [167] 63600
  235. 63532 [139]r$[178]"n"[176]r$[178]"(NULL)" [167] 63000
  236. 63540 [137] 63530
  237. 63600 [153]""
  238. 63610 [153]"                        "
  239. 63615 [153]"                        "
  240. 63620 [153]"                        "
  241. 63622 [153]"                        "
  242. 63624 [153]"                        ":[137] 1000
  243.